home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
xlib.zip
/
XSCRSAV.INT
< prev
next >
Wrap
Text File
|
1992-09-06
|
3KB
|
49 lines
(*****************************************************************************)
(* *)
(* Filename : XSCRSAV.PAS *)
(* author : Stefan Boether / Compuserve Id : 100023,275 *)
(* FidoNet : 2:242/200 *)
(* FidoNet : 2:243/91 *)
(* Internet: 100023.275@CompuServe.COM *)
(* System : TURBO 6.01 / MS-DOS 3.3 / Netzwerk *)
(* Aenderung : *)
(* wann was wer *)
(*---------------------------------------------------------------------------*)
(* 30.03.92 Change methods to seconds Stefc *)
(* 30.03.92 Implements better norton-like Stefc *)
(* 02.04.92 Makes better timing Stefc *)
(* 07.08.92 TStar would only call if Event.What is defined Stefc *)
(* 07.08.92 Also hide/show mouse on screen-saving Stefc *)
(* 18.08.92 Rename unit from SCRSAV into XSCRSAV Stefc *)
(* 18.08.92 Makes the source smaller Stefc *)
(*****************************************************************************)
(* Beschreibung: Litte screensaver object like norton-commander *)
(* If you enjoy this object send me your own objects *)
(*****************************************************************************)
UNIT XScrSav; {$O+,D-,L-}
INTERFACE
USES (* Y:UNITS\ *) Dos, (* Dos-access *)
(* Y:TVISION\ *) Objects, (* general objects *)
Drivers, (* Keyboard/Screen/Mouse *)
Views, (* screen-objects *)
Dialogs, (* dialogs and items for it *)
App; (* the application object *)
TYPE
PScreenSaver = ^TScreenSaver;
TScreenSaver = OBJECT( TView )
Activ : BOOLEAN; (* Screen Saver activ ? *)
MaxSecs : WORD; (* activate after n-Ticks *)
SecsGone : WORD; (* gone ticks *)
MyView : PView; (* the final screen-saver *)
constructor Init( Ticks:word);
procedure GetEvent( var Event:TEvent ); virtual;
function InitSaverView: PView; virtual;
END;